﻿Imports Microsoft.VisualBasic

Public Class Persona

#Region "Atributo"

    Private _personaId As Integer
    Private _nombre As String
    Private _apeP As String
    Private _apeM As String
    Private _ci As String
    Private _sexo As String
    Private _direccion As String
    Private _telefono As String
    Private _email As String
    Private _fechaN As Date
    Private _lugarN As String
    Private _celular As String

#End Region


#Region "Propiedades"

    Property PersonaId() As Integer
        Get
            Return _personaId
        End Get
        Set(ByVal Value As Integer)
            _personaId = Value
        End Set
    End Property

    Property Nombre() As String
        Get
            Return _nombre
        End Get
        Set(ByVal Value As String)
            _nombre = Value
        End Set
    End Property

    Property ApellidoPaterno() As String
        Get
            Return _apeP
        End Get
        Set(ByVal Value As String)
            _apeP = Value
        End Set
    End Property

    Property ApellidoMaterno() As String
        Get
            Return _apeM
        End Get
        Set(ByVal Value As String)
            _apeM = Value
        End Set
    End Property

    Property CI() As String
        Get
            Return _ci
        End Get
        Set(ByVal Value As String)
            _ci = Value
        End Set
    End Property

    Property Sexo() As String
        Get
            Return _sexo
        End Get
        Set(ByVal Value As String)
            _sexo = Value
        End Set
    End Property

    Property Direccion() As String
        Get
            Return _direccion
        End Get
        Set(ByVal Value As String)
            _direccion = Value
        End Set
    End Property

    Property Telefono() As String
        Get
            Return _telefono
        End Get
        Set(ByVal Value As String)
            _telefono = Value
        End Set
    End Property

    Property Email() As String
        Get
            Return _email
        End Get
        Set(ByVal Value As String)
            _email = Value
        End Set
    End Property

    Property FechaNacimiento() As String
        Get
            Return _fechaN
        End Get
        Set(ByVal Value As String)
            _fechaN = Value
        End Set
    End Property

    Property LugarNacimiento() As String
        Get
            Return _lugarN
        End Get
        Set(ByVal Value As String)
            _lugarN = Value
        End Set
    End Property

    Property Celular() As String
        Get
            Return _celular
        End Get
        Set(ByVal Value As String)
            _celular = Value
        End Set
    End Property

#End Region


#Region "Constructor"

    Public Sub New(ByVal personaId As Integer, ByVal nombre As String, ByVal apPaterno As String, ByVal apMaterno As String, ByVal ci As String, ByVal sexo As String, ByVal direccion As String, ByVal telefono As String, ByVal email As String, ByVal fechaN As Date, ByVal lugarN As String, ByVal celular As String)
        Me._personaId = personaId
        Me._nombre = nombre
        Me._apeP = apPaterno
        Me._apeM = apMaterno
        Me._ci = ci
        Me._sexo = sexo
        Me._direccion = direccion
        Me._telefono = telefono
        Me._email = email
        Me._fechaN = fechaN
        Me._lugarN = lugarN
        Me._celular = celular
    End Sub

#End Region


End Class
